\version "2.12.1"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "Hymn to Freedom"
  composer = "Oscar Peterson / Harriette Hamilton"
  source = ""
  style = ""
  copyright = \date
  lastupdated = ""
  tagline = ""
}

% music pieces

thechords = {
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \set Staff.instrumentName = "Chords "
  \transpose c bes {
    \chordmode {
      \mark \default
      c2 e4 e8:7 a:m ~ |
      a2:m c:7 |
      f2 fis:dim |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d:7 e:m7 f:dim d:7 |
      g4 g:7 c g:7 |
      c2 e4 e8:7 a:m |
      a2:m c:7 |
      f2 fis4.:dim c8 |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:m e:m d8:m7 g4.:7 |
      c1 |

      \mark \default
      g1 |
      g2. g4:7 |
      c2 e4 e:7 |
      a2:m c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:7 e:m7 f:dim d:7 |
      g4 g:7 c g:7 |
      c2 e:7 |
      a2:m c:7 |
      f2 fis4.:dim c8 ~ |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:m e:m d8:m7 g4.:7 |
      c1 |
    }
  }
}

thewordsA = \lyricmode {
  When ev -- 'ry heart __ joins ev -- 'ry heart and to -- geth -- er yearns for lib -- er -- ty, that's when we'll be free. __
  When ev -- 'ry hand __ joins ev -- 'ry hand and to -- geth -- er molds our des -- ti -- ny, __ that's when we'll be free. __
  An -- y hour, an -- y day, the time soon will come __ when we will live in dig -- ni -- ty, __ that's when we'll be free. __
  When ev -- 'ry one __ joins in our song, and to -- geth -- er sing -- ing har -- mo -- ny, __ that's when we'll be free. __
}

%part: melody
melody = {
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \set Staff.instrumentName = "Melody "
  \key bes \major
  \relative c'' {
    \mark \default
    d2 d4 c8 bes ~ |
    bes2. bes4 |
    bes'2-> a4 g8 f ~ |
    f2 bes,4 bes8. bes16 |
    bes'2-> a4.( g8) |
    f8 d4. bes2 |
    c4 c c c |
    f,2. r4 |
    d'2 d4 c8 bes ~ |
    bes2. bes8. bes16 |
    bes'4.-> bes8 a4 g8 f ~ |
    f2 bes,4. bes8 |
    bes'2-> a4. g8 |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes2. c8. d16 |
    \bar "||"

    \mark \default
    c2-> r4 c8. d16 |
    c2.-> f4 |
    d4. d8 d4 c8 bes ~ |
    bes2 bes4 bes |
    bes'2-> a4. g8 |
    f8 d4. bes2 |
    c4 c c c |
    f,2. r4 |
    d'2-> d4 c8 bes ~ |
    bes2 r4 bes8 bes |
    bes'2-> a4 g8 f ~ |
    f2 bes,4 bes8. bes16 |
    bes'4. bes8 a4. g8 |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes1 | \bar "|."

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \relative c' {
    \key bes \major
    \mark \default
    <d bes'>2 <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    <bes' ees>2-> <bes des>4. <bes d>8 ~ |
    <bes d>2 <d, f> |
    <des' g>2-> <bes des> |
    <f d'>8 <d a'>4. <d g>2 |
    e4( f g8. f16 e4) |
    a4( bes c) \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    r8 <bes f'>4.-> <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    <bes ees>2-> <bes cis>4. <bes d>8 ~ |
    <bes d>2 <d f> |
    <des g>2-> <bes des> |
    <f' d>8 <d a'>4. <d g>2 |
    <g bes>4 <f a> <c g'>8 <ees a>4. |
    ees8( d16 ees d8. c16 d4) <c a'>8. <d bes'>16 |
    \bar "||"

    \mark \default
    <c a'>2-> r8. c16 <c a'>8. <d bes'>16 |
    <c a'>2.-> \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    <d f>2 <d a'>4. <d g>8 ~ |
    <d g>2 <d f> |
    <bes ees>2-> <bes des> |
    <f d'>8 <d a'>4. <d g>2 |
    e4( f g8. f16 e4) |
    a4( bes c) \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    <d bes'>2-> <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    r8 <des g>4. <bes des>4. <bes d>8 ~ |
    <bes d>2 <d f> |
    <des g>2 <bes des> |
    bes8 a4. g2 |
    <g bes>4 <f a> <c' g>8 <ees a>4. |
    ees8( d16 ees d8. c16 d2) |
    \bar "|."

  }
}

%part: tenor
tenor = {
  \set Staff.instrumentName = "Tenor "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c' {
    \mark \default
    f2 fis4. g8 ~ |
    g2( aes) |
    g2 bes4. bes8 ~ |
    bes2 aes |
    r8 ees4.-> e2 |
    f8 fis4. g2 |
    c2.( bes4) |
    ees,2. a4-> |
    bes8 bes4.-> fis4. g8 ~ |
    g2( aes) |
    g2 bes4. bes8 ~ |
    bes2 aes |
    r8 ees4.-> e2 |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f4) r |
    \bar "||"

    \mark \default
    r4 c8.( d16 c4) r |
    r4 \times 2/3 { f8( d des } c4) a' |
    bes2 fis4. g8 ~ |
    g2 aes |
    g2 bes |
    bes8 c4. bes2 |
    c2.( bes4) |
    ees,2. a4 |
    f2-> fis4. g8 ~ |
    g2( aes) |
    r8 ees4.-> e4. f8 ~ |
    f2 aes |
    g2 des' |
    d8 d4. d2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f2) |

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c {
    \mark \default
    bes2 a4. g8 ~ |
    g2( bes) |
    ees2 e4. f8 ~ |
    f2 bes, |
    r8 ees,4.-> e2 |
    f8 fis4. g2 |
    c4( d e8. d16 c4) |
    f,4( g a) a-> |
    bes8 bes4.-> a4. g8~ |
    g2( bes) |
    ees2 e4. f8 ~ |
    f2 bes, |
    r8 ees,4.-> e2 |
    f8 fis4. g2 |
    c4 d ees8 f4. |
    bes,2. r4 |

    \mark \default
    f2. r4 |
    f2. a4 |
    bes2 fis4. g8 ~ |
    g2 bes |
    ees2 e |
    f8 fis4. g2 |
    c,4( d e8. d16 c4) |
    f,4( g a) a |
    bes2-> a4.-> g8 ~ |
    g2( bes2) |
    r8 ees4.-> e4. f8 ~ |
    f2 bes, |
    ees2 e |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    bes,1 |
    \bar "|."

  }
}

%part: melodyB
melodyB = {
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \set Staff.instrumentName = "Soprano "
  \key bes \major
  \relative c'' {
    \mark \default
    d2 d4 c |
    bes2. r4 |
    bes'2 a4 g |
    f2 bes,4 bes |
    bes'4 bes a4 g |
    f8 d4. bes2 |
    c4 c c c |
    f,2. r4 |
    d'2 d4 c |
    bes2. r4 |
    bes'2 a4 g |
    f2 bes,4 bes |
    bes'4 bes a4 g |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes2 r4 c8. d16 |
    \bar "||"

    \mark \default
    c2 r4 c8. d16 |
    c2. f4 |
    d2 d4 c |
    bes2. bes4 |
    bes'4 bes a g |
    f8 d4. bes2 |
    c4 c c c |
    f,2 r |
    d'2 d4 c |
    bes2. r4 |
    bes'2 a4 g |
    f2 bes,4 bes |
    bes'4 bes a g |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes1 | \bar "|."

  }
}

%part: harmonyB
harmonyB = {
  \set Staff.instrumentName = "HarmonyB "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \relative c' {
    \key bes \major
    \mark \default
    d2 d4 c |
    bes2. r4 |
    bes'2 a4 g |
    f2 bes,4 bes |
    bes'4 bes a4 g |
    f8 d4. bes2 |
    c4 c c c |
    f2. r4 |
    d2 d4 c |
    bes2. r4 |
    bes'2 a4 g |
    f2 bes,4 bes |
    bes'4 bes a4 g |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    g'8( f16 g f8. ees16 f4) r |
    \bar "||"

    \mark \default
    \transpose c bes {
      a4 c' b r |
      a4 c'8( a) b4 g |
      g2 gis4 gis |
      a4( e2) e4 |
      f4 a fis fis |
      g8 e4. c2 |
      fis4 g gis a |
      b4 c' cis' d' |
      g2 e8( fis) gis4 |
      e2( g4 c) |
      a4( f) dis dis |
      e4( d) c bes |
      a4 f dis dis |
      e8 d4. e2 |
      f4 e c8 d4. |
    }
    g8( f16 g f8. ees16 f2) |

  }
}

%part: tenorB
tenorB = {
  \set Staff.instrumentName = "Alto "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c' {
    \mark \default
    f2 fis4 fis |
    g2( aes4) r |
    g2 bes4 bes |
    bes2 aes4 aes |
    ees4 ees e e |
    f8 fis4. g2 |
    c4 c c bes |
    ees,2( c4) r |
    bes'2 fis4 fis |
    g2( aes4) r |
    g2 bes4 bes |
    bes2 aes4 aes |
    ees4 ees e e |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f4) r |
    \bar "||"

    \mark \default
    r4 c8. d16 c4 r |
    r4 \times 2/3 { f8( d) des } c4 a' |
    bes2 fis4 fis |
    g2( aes4) aes |
    g4 g bes bes |
    bes8 c4. bes2 |
    c4 c c bes4 |
    a4( bes b c) |
    f,2 fis4 fis |
    g2( aes4) r |
    ees2 e4 e |
    f2 aes4 aes |
    g4 g des' des |
    d8 d4. d2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f2) |

  }
}

%part: bassB
bassB = {
  \set Staff.instrumentName = "Bass "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c {
    \mark \default
    bes2 a |
    g2( bes) |
    ees2 e |
    f2 bes, |
    ees,2 e |
    f8 fis4. g2 |
    c4( d e8. d16 c4) |
    f,4( g a) r |
    bes2 a |
    g2( bes) |
    ees2 e |
    f2 bes, |
    ees,2 e |
    f8 fis4. g2 |
    c4 d ees8 f4. |
    bes,2. r4 |

    \mark \default
    f2. r4 |
    f2. a4 |
    bes2 fis |
    g2 bes |
    ees2 e |
    f8 fis4. g2 |
    c,4( d e8. d16 c4) |
    f,4( g a2) |
    bes2 a |
    g2( bes2) |
    ees2 e |
    f2 bes, |
    ees2 e |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    bes,1 |
    \bar "|."

  }
}


%layout
#(set-default-paper-size "letter" 'portrait)

\book {
  \score {
    <<
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(define output-suffix "vocal")
\book {
  \score {
    <<
      \unfoldRepeats \new Staff \melodyB
      %\unfoldRepeats \new Staff \harmonyB
      %\unfoldRepeats \new Staff \melody
      %\unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff \tenorB
      %\unfoldRepeats \new Staff \bass
      \unfoldRepeats \new Staff \bassB
    >>
    \midi { }
  }
}

#(define output-suffix "C-vocal")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \thechords
      }
      \new Voice = "melodyB" { \melodyB }
      \new Lyrics \lyricsto "melodyB" { \thewordsA }
      \new Voice = "tenorB" { \tenorB }
      \new Lyrics \lyricsto "tenorB" { \thewordsA }
      \new Staff { \clef bass \bassB }
    >>
  }
}

#(define output-suffix "C")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \thechords
      }
      \new Staff \melody
      \new Staff \harmony
      \new Staff \transpose c c, { \clef bass \tenor }
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "Bflat")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose bes c \thechords
      }
      \new Staff { \transpose bes c'  \melody }
      \new Staff { \transpose bes c'  \harmony }
      \new Staff { \transpose bes c'  \tenor }
      \new Staff { \transpose bes c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat")
\book {
  \paper {
    %page-count = #1
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose ees c \thechords
      }
      \new Staff { \transpose ees c  \melody }
      %\new Voice = "melody" { \transpose ees c \melody }
      %\new Lyrics \lyricsto "melody" { \thewordsA }
      \new Staff { \transpose ees c   \harmony }
      \new Staff { \transpose ees c'  \tenor }
      \new Staff { \transpose ees c'' \bass }
    >>
  }
}

#(define output-suffix "F")
\book {
  \paper { }
  \header { poet = "F / Fa" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose f c \thechords
      }
      \new Staff { \transpose f c   \melody }
      \new Staff { \transpose f c   \harmony }
      \new Staff { \transpose f c'  \tenor }
      \new Staff { \transpose f c'' \bass }
    >>
  }
}